home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / wild / support / table_sincos1616.bas < prev    next >
BASIC Source File  |  1999-05-25  |  256b  |  10 lines
  1.  
  2. WINDOW 1,"SinCos1616.table maker..."
  3. PRINT "1024 angles stored in this table. Offsets: 0=sin 16.16 4=con 16.16"
  4.  
  5. OPEN "Ram:SinCos1616.table" FOR OUTPUT AS 1
  6. FOR i=0 TO 1023
  7.  a=3.1415926*i/512
  8.  PRINT #1,MKL$(SIN(a)*65536);MKL$(COS(a)*65536);
  9. NEXT i
  10. CLOSE 1